How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act2/00260.ls

Text File | 1995-03-28 | 759 b | 32 lines

on exitFrame
  global toplimit, bottomlimit, rightlimit, leftlimit, moveloop
  if the mouseDown = 1 then
    if not (the soundBusy of 1) then
      puppetSound(mysound)
    end if
    set myh to the mouseH
    set myv to the mouseV
    if myh < leftlimit then
      set the locH of sprite 33 to leftlimit
    else
      if myh > rightlimit then
        set the locH of sprite 33 to rightlimit
      else
        set the locH of sprite 33 to myh
      end if
    end if
    if myv < toplimit then
      set the locV of sprite 33 to toplimit
    else
      if myv > bottomlimit then
        set the locV of sprite 33 to bottomlimit
      else
        set the locV of sprite 33 to myv
      end if
    end if
    go("MOVELOOP")
  else
    moveme2()
  end if
end